home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / misc / vahunz.lha / vahunz / source / ugly / expstr.c next >
Encoding:
C/C++ Source or Header  |  1998-04-19  |  6.8 KB  |  453 lines
  1. /*
  2.  * This source file is part of Vahunz,
  3.  * a tool to make source code un-/more legible.
  4.  *
  5.  *--------------------------------------------------------------------------
  6.  *
  7.  * Vahunz and the Ugly library are Copyright (C) 1998 by
  8.  * Thomas Aglassinger <agi@giga.or.at>
  9.  *
  10.  * All rights reserved.
  11.  *
  12.  * Refer to the manual for more information.
  13.  *
  14.  *--------------------------------------------------------------------------
  15.  *
  16.  * Ubiqx library is Copyright (C) 1991-1998 by
  17.  * Christopher R. Hertel <crh@ubiqx.mn.org>
  18.  *
  19.  * Ubiqx library is free software; you can redistribute it and/or
  20.  * modify it under the terms of the GNU Library General Public
  21.  * License as published by the Free Software Foundation; either
  22.  * version 2 of the License, or (at your option) any later version.
  23.  *
  24.  */
  25. #include <ctype.h>
  26. #include <stdlib.h>
  27. #include <stdio.h>
  28. #include <string.h>
  29. #include "utypes.h"
  30. #include "ustring.h"
  31. #include "umemory.h"
  32. #define d5R
  33. #include "expstr.h"
  34. #if e0U
  35. #define D(x) x
  36. #define l5V "*expstr* "
  37. #else
  38. #define D(x) 
  39. #endif
  40. VOID o0K(VOID)
  41. {
  42. x7H *m8Ix = s6Q(0); 
  43. x7H *y8C = s6Q(0); 
  44. BOOL ok = ((BOOL) (m8Ix && y8C)); 
  45. if (ok)
  46. {
  47. ok &= d1V(m8Ix, "sepp"); 
  48. ok &= d1V(y8C, "hugo");
  49. ok &= o0S(m8Ix, ". "); 
  50. ok &= o0S(y8C, " and ");
  51. ok &= e0C(y8C, m8Ix); 
  52. ok &= n7V(m8Ix); 
  53. }
  54. if (ok)
  55. {
  56. if (strcmp(n5H(m8Ix), "hugo and sepp.") || u0S(m8Ix))
  57. {
  58. fprintf(stderr, "error in test_expstr: data mismatch\n");
  59. ok = FALSE;
  60. }
  61. }
  62. else
  63. {
  64. perror("error in test_expstr:");
  65. }
  66. p1X(y8C); 
  67. p1X(m8Ix);
  68. if (!ok)
  69. {
  70. abort();
  71. }
  72. }
  73. static void j1B(STRPTR t3Fg, STRPTR j5R, ULONG q6U)
  74. {
  75. fprintf(stderr, "\n##\n## panic: es=NULL in %s()\n##   called from %s (%lu)\n##\n",
  76. t3Fg, j5R, q6U);
  77. }
  78. static void l9L(STRPTR t3Fg, STRPTR j5R, ULONG q6U)
  79. {
  80. fprintf(stderr, "\n##\n## panic: string=NULL in %s()\n##   called from %s (%lu)\n##\n",
  81. t3Fg, j5R, q6U);
  82. }
  83. static BOOL x5T(x7H * es, STRPTR n9X, size_t x5N)
  84. {
  85. BOOL ok = TRUE;
  86. if (n9X)
  87. {
  88. #if e0U == 2
  89. D(fprintf(stderr, l5V "set to %lu (%p->%p)\n",
  90. x5N, es->v7H, n9X));
  91. #endif
  92. es->w6Y = x5N;
  93. es->v7H = n9X;
  94. }
  95. else
  96. ok = FALSE;
  97. return (ok);
  98. }
  99. BOOL q4Y(x7H * es, size_t x5N)
  100. {
  101. return (x5T(es, (STRPTR) c8Y(x5N), x5N));
  102. }
  103. BOOL k2Od(x7H * es, size_t x5N, STRPTR j5R, ULONG q6U)
  104. {
  105. BOOL ok = FALSE;
  106. if (!es)
  107. j1B("set_estr_mem", j5R, q6U);
  108. else
  109. {
  110. ok = x5T(es,
  111. (STRPTR) n3V(x5N, j5R, q6U),
  112. x5N);
  113. }
  114. return (ok);
  115. }
  116. BOOL x7B(x7H * es, d9P s)
  117. {
  118. BOOL ok = FALSE;
  119. size_t k0S = strlen(s) + 1;
  120. STRPTR x9T = es->v7H;
  121. if ((es->w6Y == es->z3Lu)
  122. && (es->w6Y > k0S))
  123. {
  124. strcpy(es->v7H, s); 
  125. es->g8G = k0S; 
  126. ok = TRUE;
  127. }
  128. else if (s0Y(es, h5Z(k0S, es->z3Lu)))
  129. {
  130. strcpy(es->v7H, s); 
  131. y8Mj(x9T);
  132. es->g8G = k0S; 
  133. ok = TRUE;
  134. }
  135. return (ok);
  136. }
  137. BOOL r5V(x7H * es, d9P s, STRPTR j5R, ULONG q6U)
  138. {
  139. BOOL ok = FALSE;
  140. if (!es)
  141. j1B("set_estr_mem", j5R, q6U);
  142. else if (!s)
  143. l9L("set_estr_mem", j5R, q6U);
  144. else
  145. {
  146. size_t k0S = strlen(s) + 1;
  147. STRPTR x9T = es->v7H;
  148. #if e0U == 2
  149. b9D("setestr()", j5R, q6U);
  150. #endif
  151. if ((es->w6Y == es->z3Lu)
  152. && (es->w6Y > k0S))
  153. {
  154. strcpy(es->v7H, s); 
  155. es->g8G = k0S; 
  156. ok = TRUE;
  157. }
  158. else if (k2Od(es, h5Z(k0S, es->z3Lu), j5R, q6U))
  159. {
  160. strcpy(es->v7H, s); 
  161. l5D(x9T);
  162. es->g8G = k0S; 
  163. ok = TRUE;
  164. }
  165. #if e0U == 2
  166. b9D("setestr()", j5R, q6U);
  167. #endif
  168. }
  169. return (ok);
  170. }
  171. BOOL x5H(x7H * es)
  172. {
  173. return (d1V(es, ""));
  174. }
  175. BOOL b3J(x7H * es, STRPTR j5R, ULONG q6U)
  176. {
  177. #if e0U == 2
  178. STRPTR s = es->v7H;
  179. if (!s)
  180. s = "<null>";
  181. fprintf(stderr, l5V "clr_estr(%p,`%s')\n", es, s);
  182. b9D("clr_estr()", j5R, q6U);
  183. #endif
  184. return (r5V(es, "", j5R, q6U));
  185. }
  186. BOOL f9H(x7H * es, d9P s, size_t n)
  187. {
  188. BOOL ok = FALSE;
  189. STRPTR s1 = NULL;
  190. size_t y4C = strlen(s);
  191. if (n > y4C)
  192. n = y4C;
  193. s1 = (STRPTR) c8Y(n + 1);
  194. if (s1)
  195. {
  196. memcpy(s1, s, n);
  197. s1[n] = 0;
  198. ok = d1V(es, s1);
  199. l5D(s1);
  200. }
  201. return (ok);
  202. }
  203. x7H *y8Y(size_t q4K, STRPTR j5R, ULONG q6U)
  204. {
  205. x7H *es = (x7H *) n3V(sizeof(x7H), j5R, q6U);
  206. if (es)
  207. {
  208. if (q4K < r7J)
  209. q4K = r7J;
  210. es->v7H = NULL;
  211. es->w6Y = 0;
  212. es->z3Lu = q4K;
  213. if (!n7V(es))
  214. {
  215. l5D(es);
  216. es = NULL;
  217. }
  218. }
  219. return (es);
  220. }
  221. x7H *t9N(size_t q4K)
  222. {
  223. x7H *es = (x7H *) c8Y(sizeof(x7H));
  224. if (es)
  225. {
  226. if (q4K < r7J)
  227. q4K = r7J;
  228. es->v7H = NULL;
  229. es->w6Y = 0;
  230. es->z3Lu = q4K;
  231. if (!n7V(es))
  232. {
  233. l5D(es);
  234. es = NULL;
  235. }
  236. }
  237. return (es);
  238. }
  239. VOID p1X(x7H * es)
  240. {
  241. #if e0U
  242. if (es)
  243. {
  244. if (es->v7H)
  245. {
  246. #if e0U == 2
  247. z5N s[17];
  248. strncpy(s, es->v7H, 17);
  249. s[16] = 0;
  250. D(fprintf(stderr, l5V "del_estr(%p,`%s')\n", es, s));
  251. x9R("del_estr()");
  252. #endif
  253. }
  254. else
  255. {
  256. D(fprintf(stderr, l5V "attempt to free null-data-estr\n"));
  257. }
  258. }
  259. else
  260. {
  261. #if e0U == 2
  262. D(fprintf(stderr, l5V "attempt to free null-estr\n"));
  263. #endif
  264. }
  265. #endif
  266. if (es)
  267. {
  268. l5D(es->v7H);
  269. es->g8G = 0;
  270. es->w6Y = 0;
  271. es->z3Lu = 0;
  272. l5D(es);
  273. }
  274. }
  275. BOOL r5R(x7H * es, int ch)
  276. {
  277. BOOL ok = TRUE;
  278. if (es->g8G >= es->w6Y)
  279. { 
  280. STRPTR x9T = es->v7H; 
  281. if (s0Y(es,
  282. es->w6Y + es->z3Lu))
  283. { 
  284. strcpy(es->v7H, 
  285. x9T);
  286. l5D(x9T); 
  287. }
  288. else
  289. {
  290. ok = FALSE;
  291. }
  292. }
  293. if (ok)
  294. {
  295. STRPTR s;
  296. s = es->v7H;
  297. s[es->g8G - 1] = ch; 
  298. s[es->g8G] = 0;
  299. es->g8G++; 
  300. }
  301. return (ok);
  302. }
  303. BOOL a4A(x7H * es, int ch, STRPTR j5R, ULONG q6U)
  304. {
  305. BOOL ok = TRUE;
  306. if (!es)
  307. {
  308. j1B("app_estrch", j5R, q6U);
  309. ok = FALSE;
  310. }
  311. else if (es->g8G >= es->w6Y)
  312. { 
  313. STRPTR x9T = es->v7H; 
  314. if (k2Od(es,
  315. es->w6Y + es->z3Lu, j5R, q6U))
  316. {
  317. strcpy(es->v7H, 
  318. x9T);
  319. l5D(x9T); 
  320. }
  321. else
  322. { 
  323. ok = FALSE;
  324. }
  325. }
  326. if (ok)
  327. {
  328. STRPTR s;
  329. s = es->v7H;
  330. s[es->g8G - 1] = ch; 
  331. s[es->g8G] = 0;
  332. es->g8G++; 
  333. }
  334. return (ok);
  335. }
  336. BOOL k0E(x7H * es, d9P s)
  337. {
  338. BOOL ok = TRUE;
  339. size_t w6K = strlen(s);
  340. ok = TRUE;
  341. if ((es->g8G + w6K - 1) >= es->w6Y)
  342. { 
  343. STRPTR x9T = es->v7H; 
  344. if (q4Y(es,
  345. h5Z(es->g8G + w6K + 1, es->z3Lu)))
  346. {
  347. strcpy(es->v7H, 
  348. x9T);
  349. l5D(x9T); 
  350. }
  351. else
  352. { 
  353. ok = FALSE;
  354. }
  355. }
  356. if (ok)
  357. {
  358. STRPTR ds;
  359. ds = es->v7H + (es->g8G - 1);
  360. strcat(ds, s);
  361. es->g8G += w6K; 
  362. es->v7H[es->g8G - 1] = 0;
  363. }
  364. return (ok);
  365. }
  366. BOOL o0Mx(x7H * es, d9P s, STRPTR j5R, ULONG q6U)
  367. {
  368. BOOL ok = FALSE;
  369. if (!es)
  370. j1B("app_estr", j5R, q6U);
  371. else if (!s)
  372. l9L("app_estr", j5R, q6U);
  373. else
  374. {
  375. size_t w6K = strlen(s);
  376. ok = TRUE;
  377. if ((es->g8G + w6K - 1) >= es->w6Y)
  378. { 
  379. STRPTR x9T = es->v7H; 
  380. if (k2Od(es,
  381. h5Z(es->g8G + w6K + 1, es->z3Lu), j5R, q6U))
  382. { 
  383. strcpy(es->v7H, 
  384. x9T);
  385. l5D(x9T); 
  386. }
  387. else
  388. { 
  389. ok = FALSE;
  390. }
  391. }
  392. if (ok)
  393. {
  394. STRPTR ds;
  395. ds = es->v7H + (es->g8G - 1);
  396. strcat(ds, s);
  397. es->g8G += w6K; 
  398. es->v7H[es->g8G - 1] = 0;
  399. }
  400. }
  401. return (ok);
  402. }
  403. BOOL k0O(x7H * dest, x7H * src, size_t v5N, size_t num)
  404. {
  405. BOOL ok = FALSE;
  406. x7H *j3J = s6Q(dest->z3Lu);
  407. if (j3J)
  408. {
  409. STRPTR x9T = j3J->v7H;
  410. if (v5N >= src->g8G)
  411. v5N = src->g8G - 1;
  412. if (v5N + num >= src->g8G)
  413. num = src->g8G - v5N - 1;
  414. ok = s0Y(j3J, h5Z(num + 1, j3J->z3Lu));
  415. if (ok)
  416. {
  417. strncpy(n5H(j3J), n5H(src) + v5N, num);
  418. j3J->v7H[num] = 0;
  419. j3J->g8G = num + 1;
  420. l5D(x9T);
  421. ok = f5J(dest, j3J);
  422. }
  423. p1X(j3J);
  424. }
  425. return (ok);
  426. }
  427. BOOL h5B(x7H * dest, x7H * src, size_t num)
  428. {
  429. if (num >= src->g8G)
  430. num = src->g8G - 1;
  431. return (k0O(dest, src, (src->g8G - num - 1), num));
  432. }
  433. BOOL z9F(x7H * dest, x7H * src, size_t num)
  434. {
  435. return (k0O(dest, src, 0, num));
  436. }
  437. STRPTR c2C(x7H * es)
  438. {
  439. return (es->v7H);
  440. }
  441. size_t z7Pg(x7H * es)
  442. {
  443. return (es->g8G - 1);
  444. }
  445. BOOL f5J(x7H * dest, x7H * src)
  446. {
  447. return (d1V(dest, n5H(src)));
  448. }
  449. BOOL e0C(x7H * dest, x7H * src)
  450. {
  451. return (o0S(dest, n5H(src)));
  452. }
  453.